dqliter Subroutine

public subroutine dqliter(dltpow, traj, h, powexit, iout)

!old variant ! call raspr(v,abs(jr),iv,df) ! if(iv.eq.0) iv=1 !!!!!!!!!!!!!!!!!!!!!!!! dfsr=vdf(vrt-vlf) vsr=v(vrt-vlf) pintld=-dland(i)(dflf+dfrt)/2d0 pdec1=-pdecv*df

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=wp),	intent(in)			::	dltpow
type(Trajectory),	intent(in),		pointer	::	traj
real(kind=wp),	intent(in)			::	h
real(kind=wp),	intent(out)			::	powexit
integer,	intent(inout)			::	iout